UC知道马上要。。急。。求[OFFICE表格]
来源：百度知道 编辑：UC知道 时间：2024/05/11 02:38:45
第一排。姓名/成绩/名次
第二排。A/90/1
第三排。B/80/2
第四排。。。。
第五排。。。。
怎样改换格式？变成
表一：
第一排。姓名/成绩/名次
第二排。A/。。。。
表二：
第一排。姓名/成绩/名次
第二排。B/.....
表三：
。。。
表N......
（批量复制。。希望能一下子弄好。。谢谢了）
=====★
QQ:305721437
BAIDU HI:如账号。。
第二排。A/90/1
第三排。B/80/2
第四排。。。。
第五排。。。。
怎样改换格式？变成
表一：
第一排。姓名/成绩/名次
第二排。A/。。。。
表二：
第一排。姓名/成绩/名次
第二排。B/.....
表三：
。。。
表N......
（批量复制。。希望能一下子弄好。。谢谢了）
=====★
QQ:305721437
BAIDU HI:如账号。。
专门写给你的。执行即完成所有你说的工作。
Sub 一人一表()
Range("A1").Select
ActiveCell.End(xlDown).Select
Count = ActiveCell.Row - 1
datasheet = ActiveSheet.Name
For i = Count To 1 Step -1
Sheets.Add Before:=ActiveSheet
ActiveSheet.Name = i
Application.Union(Sheets(datasheet).Rows(1), Sheets(datasheet).Rows(i + 1)).Copy
ActiveSheet.Paste
Next
End Sub
如果很急的话，留下你的Q，我加你.有问题可以留言.
很简单，录制一个宏就可以了，在工具菜单，选宏-录制新宏，指定快捷方式，如ctrl+o，然后选择你表格中的前两行，复制，点新建表，粘贴，再回到你的表格，删除a行，录制完毕，后面直接点ctrl+o，就可以了，我试了一下，宏代码如下：
Sub Macro1()
'
' Macro1 Macro
' 快捷键: Ctrl+o
'
Rows("1:2").Select
Selection.Copy
Sheets("Sheet1").Select
Sheets.Add
ActiveSheet.Paste
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
Sheets("Sheet1").Select
Rows("2:2").Select
Application.CutCopyMode = False
Sele